home *** CD-ROM | disk | FTP | other *** search
/ El Mac 9 / El Mac 9.iso / Shareware / Applications / Charting Coach v1.5 / Charting Coach v1.dxr / 00298.ls < prev    next >
Encoding:
Text File  |  1996-04-08  |  611 b   |  27 lines
  1. on mouseUp
  2.   global currentCycleNo, cycleNo, userNo, wantsToViewCycles
  3.   if the doubleClick then
  4.     exit
  5.   end if
  6.   killcorrection()
  7.   puppetSprite(7, 1)
  8.   set the visible of sprite 7 to 1
  9.   puppetSprite(7, 0)
  10.   if wantsToViewCycles = 0 then
  11.     if currentCycleNo <> getAt(cycleNo, userNo) then
  12.       set currentCycleNo to getAt(cycleNo, userNo)
  13.     end if
  14.     readCycleInfo()
  15.     puppetVisible(13, 48, 1)
  16.     puppetStatus(11, 48, 0)
  17.     go("removeimage")
  18.     prepfrontpage()
  19.   else
  20.     puppetVisible(13, 48, 1)
  21.     puppetStatus(11, 48, 0)
  22.     go("removeimage")
  23.     go("cycle list")
  24.     cursor(0)
  25.   end if
  26. end
  27.